perl -e 'while(<>){ chomp; my $str = $_; $str =~ /.*?service=NEW_ALERT&email=(.*?)&area_codes=(.*?),&hours=(.*?)&days=(.*?)\ HTTP.*/; print "insert into user_prefs values(\"\",\"$1\",\"$2\",$3,\"$4\",\"\");\n";}'|mysql -ufbads -pfbads tar
